home *** CD-ROM | disk | FTP | other *** search
/ Computer Shopper 201 / DPCS1104.ISO / Full / QuickBooks / QBTutor / Lesson1 / Lesson1.dcr / 00009_set focus to sprite.ls < prev    next >
Encoding:
Text File  |  2001-11-20  |  257 b   |  12 lines
  1. property FocusSprite
  2.  
  3. on getPropertyDescriptionList
  4.   description = [:]
  5.   addProp(description, #FocusSprite, [#default: 1, #format: #number, #comment: "Focus sprite:"])
  6.   return description
  7. end
  8.  
  9. on beginSprite me
  10.   the keyboardFocusSprite = FocusSprite
  11. end
  12.